home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
diskmags
/
0022-3.564
/
dmg-3450
/
programm
/
game.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
22KB
|
95 lines
10 REM
100 RESERVE
1000 KEY
1010 VARNAME
1011 VARNAME
1012 VARNAME
1013 VARNAME
1020 VARNAME
1080 VARNAME
1081 VARNAME
1090 REPEAT
1091 SPRITE
1092 IF
1100 IF
1101 IF
1102 IF
1104 IF
1105 IF
1106 IF
1107 IF
1108 IF
1109 IF
1110 IF
1170 UNTIL
20 REM eddies game shell
23420 REM set up screen and colours
23430 VARNAME
23440 FOR
23450 RETURN
30 REM needs monster,map data in banks 10,9
40 REM have fun
40000 KEY
40010 REM ~~~~~~~~~~~~~~~~~~~~~~~~
40020 REM DISPLASY THE ACTUAL MAP AT A SET LOCATION
40030 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~
40040 DIM
40050 REM for K=1 to 4000 : SS(K)=peek(start(10)+K) : next K
40060 UNKNOWN OP: 0x3A
40070 VARNAME
40080 CURS
40090 VARNAME
40100 REM ~~~~~~~~~~~~~~~~~~~
40110 SCREEN COPY
40120 VARNAME
40130 FOR
40140 VARNAME
40150 IF
40160 INC
40170 VARNAME
40171 IF
40172 REM f PAL=1 then colour 1,$321 : colour 2,$432 : colour 3,$543 : colour 4,$654 : colour 5,$765 : colour 12,$700 : colour 13,$720 : colour 14,$740 : PAL=2
40180 IF
40190 NEXT
40191 REM if PAL=0 then get palette (14)
40200 GOSUB
40210 REM ~~~~~~~~~~~~~~~~~~
40220 REM CUT OUT SPRITE AS SCREEN BLOCKS
40230 REM ~~~~~~~~~~~~~~~~~~~~~~~~
40240 FOR
40250 SPRITE
40260 VARNAME
40270 CLS
40280 NEXT
40290 RETURN
50 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
60000 REM ~~~~~~~~~~~~~~~~~~~
60010 REM grab sprite info from mam bank 9
60020 REM ~~~~~~~~~~~~~~~~~~~
60021 VARNAME
60030 FOR
60040 VARNAME
60050 VARNAME
60060 VARNAME
60070 VARNAME
60080 VARNAME
60090 VARNAME
60100 VARNAME
60110 VARNAME
60120 VARNAME
60170 INC
65000 REM ~~~~~~
65010 REM set up the movement commands!!
65020 REM ~~~~~~~
65030 VARNAME
65040 VARNAME
65041 IF
65050 IF
65060 IF
65070 IF
65071 IF
65072 IF
65073 IF
65080 MOVE
65090 RETURN